From 63044ada6c8b11337af17153034386aca76d8385 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 4 Dec 2006 10:20:50 +0000 Subject: [PATCH] (describe-char-unicode-data): Use a hidden buffer for Unicode data file pointed to by `describe-char-unicodedata-file'. --- lisp/descr-text.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 8fb28930fbf..361c3b8c15c 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -212,11 +212,10 @@ The list is null if CHAR isn't found in `describe-char-unicodedata-file'." (when describe-char-unicodedata-file (unless (file-exists-p describe-char-unicodedata-file) (error "`unicodedata-file' %s not found" describe-char-unicodedata-file)) - (with-current-buffer - ;; Find file in fundamental mode to avoid, e.g. flyspell turned - ;; on for .txt. Don't use RAWFILE arg in case of DOS line endings. - (let ((auto-mode-alist)) - (find-file-noselect describe-char-unicodedata-file)) + (with-current-buffer (get-buffer-create " *Unicode Data*") + (when (zerop (buffer-size)) + ;; Don't use -literally in case of DOS line endings. + (insert-file-contents describe-char-unicodedata-file)) (goto-char (point-min)) (let ((hex (format "%04X" char)) found first last) -- 2.30.2